﻿Public Class RuleViolation
    Private _ErrorMessage As String
    Public Property ErrorMessage() As String
        Get
            Return _ErrorMessage
        End Get
        Private Set(ByVal value As String)
            _ErrorMessage = value
        End Set
    End Property

    Private _PropertyName As String
    Public Property PropertyName() As String
        Get
            Return _PropertyName
        End Get
        Private Set(ByVal value As String)
            _PropertyName = value
        End Set
    End Property

    Public Sub New(ByVal errorMessage As String)
        Me.ErrorMessage = errorMessage
    End Sub

    Public Sub New(ByVal errorMessage As String, ByVal propertyName As String)
        Me.ErrorMessage = errorMessage
        Me.PropertyName = propertyName
    End Sub
End Class
